10 POKE56,37:POKE55,0:CLR:POKE53371,0 20 DV=PEEK(186):IFDV<8THENDV=8 30 POKE53281,0:POKE53280,0:PRINT"[147][155] [203] [206] [197] [197] [211] [195] [193] [204] [200] [207] [207] [206] ' [211]" 40 PRINT" [205][201][199][200][212][217] [205][197][197][212][201][206][199] [196][207][207][196][204][197] [211][200][207][215]" 42 IFGTHEN80 44 G=1 50 SYS57812"TSV.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 52 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493 60 SYS57812"ANNELOID.SHP",DV,0:POKE780,0:POKE781,0:POKE782,37:SYS65493 62 SYS57812"TACO FLOWER.SHP",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493 64 SYS57812"CYPRESS.SHP",DV,0:POKE780,0:POKE781,0:POKE782,65:SYS65493 66 SYS57812"HOOVER.SHP",DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493 70 PA(1)=37:PA(2)=52:PA(3)=65:PA(4)=128 72 FORI=1TO4:MD(I)=PEEK(PA(I)*256):NEXT 80 PRINT" [152][196]OODLES BY [155][203]NEES [195]ALHOON 82 [153][163]11)"1.CONT ATNNNELOID 84 PRINTTAB(11)"2.[154] [212]ACO [198]LOWER 86 [153][163]11)"3.CONT (null)AD LENYPRESS 87 PRINTTAB(11)"4.[154] [200]OOVER 88 [153][163]11)"5.CONT (null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null) 90 POKE198,0 92 GETA$:IFA$<"1"ORA$>"5"THEN92 94 P=VAL(A$) 96 IFP=5THEN40000 98 GOSUB500 100 POKE214,6:PRINT 110 PRINT" 1.[154] [202]UST SHOW THE PICTURE 120 [153]" 2.CONT (null)HOW THE PICTURE AND PRINT IT ON 125 PRINT" A 7-PIN (1525-EMULATING) PRINTER 130 [153]" 3.CONT (null)HOW THE PICTURE AND PRINT IT ON 135 PRINT" AN 8-PIN ([197]PSON-EMULATING) PRINTER 140 [153]" 4.CONT (null)ETURN TO LENARTOON (null)ENU 150 PRINT" 5.[154] [210]ETURN TO [204][207][193][196][211][212][193][210] 170 [153]"LIST (null)AKE SURE YOUR PRINTER IS ON-LINE. 220 POKE198,0 230 GETA$:IFA$<"1"ORA$>"5"THEN230 232 A1=VAL(A$):IFA1=5THEN40000 235 IFA1=1THEN400 240 IFA1=2THENTB=80:GOTO350 245 IFA1=4THENGOSUB500:GOTO30 250 GOSUB500 260 POKE214,6:PRINT 270 PRINT" [196][197][206][211][201][212][217] [215][201][196][212][200] 275 [153]" 1.CONT (null)INGLE WIDE 280 PRINT" 2.[154] [195]RT NORMAL 285 [153]" 3.CONT STR$OUBLE NARROW 290 PRINT" 4.[154] [196]OUBLE WIDE 295 [153]" 5.CONT (null)UAD NARROW 296 PRINT" 6.[154] [209]UAD NORMAL 300 [151]198,0 305 [161]A$:[139]A$[179]"1"[176]A$[177]"6"[167]305 310 A2[178][197](A$):[139]A2[178]1[167] DS[178]0:BT[178]1:TB[178]80 312 [139]A2[178]2[167] DS[178]4:BT[178]1:TB[178]120 314 [139]A2[178]3[167] DS[178]1:BT[178]1:TB[178]160 316 [139]A2[178]4[167] DS[178]1:BT[178]2:TB[178]80 318 [139]A2[178]5[167] DS[178]3:BT[178]2:TB[178]160 320 [139]A2[178]6[167] DS[178]3:BT[178]3:TB[178]120 350 [141]500 355 [151]214,6:[153] 360 [153]" (null)ATNPEEKCLOSE(null)(null)(null)RIGHT$(null)RIGHT$(null)(null) 362 PRINT" 1.[154] [204]EFT 364 [153]" 2.CONT LENENTER 366 PRINT" 3.[154] [210]IGHT 368 [139]A2[179][177]3[175]A2[179][177]5[167]374 370 [153]" 4.CONT LENENTER-LEFT 372 PRINT" 5.[154] [195]ENTER-RIGHT 374 [151]198,0 376 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]376 378 [139]A$[178]"1"[167]TB[178]0:[137]400 380 [139]A$[178]"2"[167]400 382 [139]A$[178]"3"[167]TB[178]TB[172]2:[137]400 384 [139]A2[179][177]3[175]A2[179][177]5[167]374 386 [139]A$[178]"4"[167]TB[178]53:[137]400 388 TB[178]266 400 [151]251,PA(P):[151]252,96:[151]253,92:[158]51456 405 [158]51459 410 [139]A1[178]2[167][158]49152,TB,MD(P):[137]430 415 [139]A1[178]3[167][158]49155,TB,DS,BT,BT[172]320,MD(P):[137]430 420 [151]198,0 425 [161]A$:[139]A$[178]""[167]425 430 [151]186,DV:[158]51459 435 [137]30 500 [129]X[178]6[164]24:[151]781,X:[158]59903:[130]:[142] 10000 D[178][194](186):N$[178]"B.DOODLE SHOW":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128] 40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8 40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030 40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128] 40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130] 40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060 40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070 40060 [130]:[142] 40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23 40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I 40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]